Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/move/move.dir/00004.ls

Text File | 1999-03-05 | 1.5 KB | 51 lines

on stopMovie
  puppetSprite(15, 0)
end

on keyDown
  if the key = "q" then
    puppetSprite(15, 0)
    go("end")
  end if
end

on startMovie
  global currentpage, currentproject, loop2var, loop2var2, currentmsg
  set the cursor of sprite 17 to [73, 74]
  set the cursor of sprite 20 to [73, 74]
  set the cursor of sprite 102 to [73, 74]
  set the cursor of sprite 103 to [73, 74]
  set the cursor of sprite 115 to [73, 74]
  set currentpage to 59
  set currentproject to 59
  set currentmsg to 0
end

on gotoPage number, project, webPage
  global currentproject, currentpage
  set currentproject to number
  set the member of sprite 105 to project
  set the member of sprite 15 to member string(line currentpage of field "pages")
end

on showmousedown rolloversprite
  global currentproject, currentpage
  set the locH of sprite 21 to the locH of sprite rolloversprite
  set the member of sprite 105 to line currentproject of field "project"
end

on showrollover rolloversprite
  set the locH of sprite 20 to the locH of sprite rolloversprite
  set the member of sprite 105 to line rolloversprite of field "project"
end

on buttonclick whichsprite
  global currentproject, currentpage
  set the locH of sprite 20 to -50
  set the locH of sprite 21 to the locH of sprite whichsprite
  set currentproject to whichsprite
  set currentpage to whichsprite
  set the member of sprite 105 to line currentproject of field "project"
  gotoPage(currentproject, line currentproject of field "project", line currentpage of field "pages")
end